home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Aldus / US English / PageMaker 5.0 / PageMaker 5.0 PPC / PM5.0P TV RSRC / PM5.0P TV RSRC.rsrc / IMPS_1 < prev    next >
Text File  |  1994-05-25  |  4KB  |  60 lines
  1. ¶%%BeginResource: procset IMAGE_PS 1.0 1
  2. %%Copyright: (C) Copyright 1993 Aldus Corporation. All Rights Reserved.
  3. %%Version:1.0 1
  4. /IMdict 100 dict def IMdict begin/bdef{bind def}bind def/xdef{exch def}bdef
  5. /ldef{load def}bdef/_IMmtx matrix def/ndef{1 index where{pop pop pop}{dup
  6. xcheck{bind}if def}ifelse}bdef/setoverprint{pop}ndef/findcmykcustomcolor{5
  7. /packedarray where{pop packedarray}{array astore readonly}ifelse}ndef
  8. /findcmykprocesscolor{5/packedarray where{pop packedarray}{array astore
  9. readonly}ifelse}ndef/setcmykcolor{1 sub 4 1 roll 3{3 index add neg dup 0 lt{
  10. pop 0}if 3 1 roll}repeat systemdict/setrgbcolor get exec pop}ndef
  11. /setcustomcolor{exch aload pop pop 4{4 index mul 4 1 roll}repeat setcmykcolor
  12. pop}ndef/setprocesscolor{exch aload pop pop 4{4 index mul 4 1 roll}repeat
  13. setcmykcolor pop}ndef/separationimage{image}ndef/iB^{/_imprcs? xdef/_imt xdef
  14. dup null ne{_imprcs?{findcmykprocesscolor}{findcmykcustomcolor}ifelse}if/_imc
  15. xdef _imc null eq{1 _imt sub setseparationgray}{_imprcs?{_imc _imt
  16. setprocesscolor}{_imc _imt setcustomcolor}ifelse}ifelse}bdef/iA^{setoverprint}
  17. bdef/level2/languagelevel where{pop languagelevel 1 ne}{false}ifelse def
  18. /_colorexists? level2{statusdict/processcolors known{statusdict/processcolors
  19. get exec}{1}ifelse 4 eq def}{systemdict/setcmykcolor known def}ifelse
  20. /IMcolorbuf{0 1 2 index length 1 sub{dup 2 index exch get 255 exch sub 2 index
  21. 3 1 roll put}for}bdef/IMsetcmyk{aload pop/_ik xdef/_iy xdef/_im xdef/_ic xdef}
  22. bdef/iC^{/packedarray where{pop dup type/packedarraytype eq 2 index type
  23. /packedarraytype eq or}{false}ifelse{/proc2 exch cvlit def/proc1 exch cvlit
  24. def proc1 aload pop proc2 aload pop proc1 length proc2 length add packedarray
  25. cvx}{/proc2 exch cvlit def/proc1 exch cvlit def/newproc proc1 length proc2
  26. length add array def newproc 0 proc1 putinterval newproc proc1 length proc2
  27. putinterval newproc cvx}ifelse}bdef/currentcolortransfer{currenttransfer dup
  28. dup dup}ndef/setcolortransfer{systemdict begin settransfer end pop pop pop}
  29. ndef/customcolorimage{_colorexists?{aload pop pop 4 array astore IMsetcmyk
  30. currentcolortransfer{_ik mul _ik sub 1 add}iC^ 4 1 roll{_iy mul _iy sub 1 add}
  31. iC^ 4 1 roll{_im mul _im sub 1 add}iC^ 4 1 roll{_ic mul _ic sub 1 add}iC^ 4 1
  32. roll setcolortransfer/_mbuf 0 string def/_ybuf 0 string def/_kbuf 0 string def
  33. {IMcolorbuf dup length _mbuf length ne{dup length dup dup/_mbuf exch string
  34. def/_ybuf exch string def/_kbuf exch string def}if dup _mbuf copy _ybuf copy
  35. _kbuf copy pop}iC^{_mbuf}{_ybuf}{_kbuf}true 4 colorimage}{aload pop pop 4
  36. array astore IMsetcmyk iE^ currenttransfer{_imtint mul 1 _imtint sub add}iC^
  37. settransfer image}ifelse}ndef/iE^{_ic .3 mul _im .59 mul _iy .11 mul _ik add
  38. add add dup 1 gt{pop 1}if/_imtint xdef}bdef/iF^{/_imprcs? xdef/_imspotint xdef
  39. _colorexists?{currentcolortransfer{_imspotint mul 1 _imspotint sub add}iC^ 4 1
  40. roll{_imspotint mul 1 _imspotint sub add}iC^ 4 1 roll{_imspotint mul 1
  41. _imspotint sub add}iC^ 4 1 roll{_imspotint mul 1 _imspotint sub add}iC^ 4 1
  42. roll setcolortransfer}{currenttransfer{_imspotint mul 1 _imspotint sub add}iC^
  43. settransfer}ifelse findcmykcustomcolor customcolorimage}ndef/iG^{/inv xdef/h
  44. xdef/w xdef/AsBin xdef/imbuf w 7 add 8 idiv string def w h inv[1 0 0 1 0 0]{
  45. currentfile imbuf AsBin{readstring}{readhexstring}ifelse pop}imagemask}bdef
  46. /isCL^{/AsProcess xdef/TintPercent xdef/ColorName xdef/_k xdef/_y xdef/_m xdef
  47. /_c xdef/OverPrint xdef/bits xdef/h xdef/w xdef/AsBin xdef/imbuf w bits mul 7
  48. add 8 idiv string def w h bits[1 0 0 1 0 0]{currentfile imbuf AsBin{readstring
  49. }{readhexstring}ifelse pop}OverPrint iA^ _c _m _y _k ColorName TintPercent
  50. AsProcess iF^}bdef/iI^{/OverPrint xdef/bits xdef/h xdef/w xdef/AsBin xdef
  51. /imbuf w bits mul 7 add 8 idiv string def w h bits[1 0 0 1 0 0]{currentfile
  52. imbuf AsBin{readstring}{readhexstring}ifelse pop}OverPrint iA^ separationimage
  53. }bdef/iJ^{/bits xdef/h xdef/w xdef/AsBin xdef/imbuf w bits mul 3 mul 7 add 8
  54. idiv string def w h bits[1 0 0 1 0 0]{currentfile imbuf AsBin{readstring}{
  55. readhexstring}ifelse pop}false 3 colorimage}bdef/iK^{/bits xdef/h xdef/w xdef
  56. /AsBin xdef/imbuf w bits mul 4 mul 7 add 8 idiv string def w h bits[1 0 0 1 0
  57. 0]{currentfile imbuf AsBin{readstring}{readhexstring}ifelse pop}false 4
  58. colorimage}bdef end
  59. %%EndResource
  60.